home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
NEW
/
V-TPUG Programming Contest
/
(n)v1.d64
/
vic to 64 screen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-01-19
|
593b
|
16 lines
100 PRINT"[147] 22-COLUMN PRINT FORMATTER FOR C64":PRINT
110 PRINT"READING DATA"
120 FORI=828TO881:READA:CK=CK+A:POKEI,A:NEXT:POKE179,883 AND 255
130 IFCK<>6032THEN PRINT"ERROR IN DATA:CHECK TYPING.":END
140 PRINT"BEFORE...":SYS828:PRINT"AFTER..."
150 PRINT"PRESS RUN/STOP-RESTORE";:PRINT"TO REGAIN 40 COLUMNS"
160 PRINT"ENTERSYS828[146] TO":PRINT"REACTIVATE,IF":PRINT"NECESSARY."
170 PRINT"DO NOT EDIT ANY":PRINT"LINES WHILE IN 22 COL-UMN MODE."
1000 DATA169,71,141,38,3,169,3,141
1010 DATA39,3,96,72,152,72,138,72
1020 DATA56,32,240,255,192,9,176,3
1030 DATA76,100,3,192,31,144,15,169
1040 DATA13,32,202,241,56,32,240,255
1050 DATA160,9,24,32,240,255,104,170
1060 DATA104,168,104,76,202,241